unit EventDefine;

interface

type
  TResultEvent = procedure(text: string) of object;

implementation

end.
